home *** CD-ROM | disk | FTP | other *** search
/ Leisure Game Pak 1 / Leisure Game Pak I.iso / bin / cdrom.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-17  |  693b  |  37 lines
  1. {
  2. Here are some routines For Changing and detecting drives.
  3. }
  4.  
  5. Uses   eco_env,dos;
  6.  
  7. Var
  8.         Regs     :Registers;
  9.         e      :  envrec;
  10.         ss     :  string;
  11.         vs     :  string;
  12.         status : integer;
  13.  
  14.  
  15. Function GetDrive :Byte;
  16. begin
  17.   Regs.AX := $1900;
  18.   Intr($21,Regs);
  19.   GetDrive := (Regs.AL + 1);
  20.   (* Returns  1 = A:,   2 = B:,   3 = C:,  Etc  *)
  21. end;
  22.  
  23. Procedure ChangeDrive(Drive :Byte);
  24. begin
  25.   Regs.AH := $0E;
  26.   Regs.DL := Drive;  (*  Drive   1 = A:, 2 = B:, 3 = C:  *)
  27.   Intr($21,Regs);
  28. end;
  29.  
  30. begin
  31.   {
  32.   Writeln(' Current Drive : ',CHR( GetDrive+64 )); }
  33.   masterenv(e);
  34.   setenvstr(e, 'cdrom', CHR( GetDrive+64 )+':') ;
  35.  
  36. end.
  37.